home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1985 Fall / rerun-1985-fall.d64 / turtle demo (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  602b  |  18 lines
  1. 1 rem   turtle demo
  2. 10 reset:colr14,6:tailup:right150:move127:left150:taildown
  3. 20 forg=1to36:fort=1to2:forr=1to8:move9:left10:next
  4. 30 forr=1to6:move9:right10:nextr,t:right170:next:gosub300
  5. 40 colr6,14:fort=4to8step2:a=360/t
  6. 50 forr=1tot:forg=1tot:movea:lefta:next:righta:next
  7. 60 gosub300:next
  8. 70 poke53280,0:colr0,2:a=160:fort=1to200:movet:lefta:next:gosub300
  9. 80 colr6,14:poke53280,14:fort=13to15step2:a=720/t
  10. 90 forr=1tot:forg=1tot:taildown:ifg/2=int(g/2)thentailup
  11. 100 movea:lefta:next:righta:next
  12. 110 gosub300:next
  13. 120 poke53280,0:colr0,6:fort=1to24:forr=1to36
  14. 130 move10:left10:next:right15:next:gosub300
  15. 140 colr6,8:poke53280,14:a=89.5:fort=1to230step1.5:movet:lefta:next:gosub300
  16. 299 text:end
  17. 300 fory=1to1200:next:reset:return
  18.